home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / C and C++ / Libraries / List Manager for Lightspeed C / listmgr.asm next >
Encoding:
Assembly Source File  |  1986-05-25  |  1.3 KB  |  53 lines  |  [TEXT/KAHL]
  1. ; List Manager support for LightspeedC
  2. ; Walter R. Smith, 21 April 1986
  3. ; This code is hereby placed in the public domain.
  4.  
  5. XDEF LActivate, LAddColumn, LAddRow, LAddToCell, LAutoScroll, LCellSize
  6. XDEF LClick, LClrCell, LDelColumn, LDelRow, LDispose, LDoDraw, LDraw
  7. XDEF LFind, LGetCell, LGetSelect, LLastClick, LNew, LNextCell, LRect
  8. XDEF LScroll, LSearch, LSetCell, LSetSelect, LSize, LUpdate
  9.  
  10.     .MACRO    _DoCall
  11.     MOVE.W    %1, D0
  12.     BRA    PackIntf
  13.     .ENDM
  14.     
  15. PackIntf
  16.     MOVE.L    D3, -(SP)    ; save this
  17.     MOVE.W    D0, D3        ; so we can save this
  18.     MOVE.W    #$1E7, D0    ; where is _Pack0?
  19.     DC.W    $A146        ; _GetTrapAddress
  20.     MOVE.L    D3, D0        ; get this back
  21.     MOVE.L    (SP)+, D3    ; and restore the original D3
  22.     MOVE.L    (SP)+, D1    ; get return address
  23.     MOVE.W    D0, -(SP)    ; push routine selector
  24.     MOVE.L    D1, -(SP)    ; push return address
  25.     JMP    (A0)        ; call _Pack0
  26.  
  27. LActivate    _DoCall #0
  28. LAddColumn    _DoCall #4
  29. LAddRow        _DoCall #8
  30. LAddToCell    _DoCall #12
  31. LAutoScroll    _DoCall #16
  32. LCellSize    _DoCall #20
  33. LClick        _DoCall #24
  34. LClrCell    _DoCall #28
  35. LDelColumn    _DoCall #32
  36. LDelRow        _DoCall #36
  37. LDispose    _DoCall #40
  38. LDoDraw        _DoCall #44
  39. LDraw        _DoCall #48
  40. LFind        _DoCall #52
  41. LGetCell    _DoCall #56
  42. LGetSelect    _DoCall #60
  43. LLastClick    _DoCall #64
  44. LNew        _DoCall #68
  45. LNextCell    _DoCall #72
  46. LRect        _DoCall #76
  47. LScroll        _DoCall #80
  48. LSearch        _DoCall #84
  49. LSetCell    _DoCall #88
  50. LSetSelect    _DoCall #92
  51. LSize        _DoCall #96
  52. LUpdate        _DoCall #100
  53.